home *** CD-ROM | disk | FTP | other *** search
- % Copyright (C) 1995 Aladdin Enterprises. All rights reserved.
- %
- % This file is part of Aladdin Ghostscript.
- %
- % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND. No author
- % or distributor accepts any responsibility for the consequences of using it,
- % or for whether it serves any particular purpose or works at all, unless he
- % or she says so in writing. Refer to the Aladdin Ghostscript Free Public
- % License (the "License") for full details.
- %
- % Every copy of Aladdin Ghostscript must include a copy of the License,
- % normally in a plain ASCII text file named PUBLIC. The License grants you
- % the right to copy, modify and redistribute Aladdin Ghostscript, but only
- % under certain conditions described in the License. Among other things, the
- % License requires that the copyright notice and this notice be preserved on
- % all copies.
-
- % Display a file produced by ps2ascii with no switch or with -dCOMPLEX.
- % This is just a procset to read in before the file to display.
-
- /init { 0.1 0.1 scale } bind def
- init
- /next { currentfile token pop } bind def
- /F { next next pop next exch selectfont } bind def
- /P { showpage init } bind def
- /S
- { next next moveto
- next dup stringwidth pop next exch div
- gsave 1 scale show grestore
- } bind def
- /C { next next next setrgbcolor } bind def
- /I { next next next next gsave 0.75 setgray rectfill grestore } bind def
- /R { next next next next rectfill } bind def
-